home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / FDEMO08.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-23  |  3KB  |  109 lines
  1. unit Fdemo08;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Printers,
  8.   PrnWin, Buttons, CB_Types, DBPrnWin, CB_MFunc;
  9.  
  10. type
  11.   TForm08 = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     DBGrid2: TDBGrid;
  14.     DBNavigator: TDBNavigator;
  15.     Panel1: TPanel;
  16.     DataSource1: TDataSource;
  17.     Panel2: TPanel;
  18.     Panel3: TPanel;
  19.     Table1: TTable;
  20.     Table2: TTable;
  21.     DataSource2: TDataSource;
  22.     Label9: TLabel;
  23.     Table1CustNo: TFloatField;
  24.     Table1Company: TStringField;
  25.     Table1Contact: TStringField;
  26.     Table1LastInvoiceDate: TDateTimeField;
  27.     Table2OrderNo: TFloatField;
  28.     Table2CustNo: TFloatField;
  29.     Table2SaleDate: TDateTimeField;
  30.     Table2ShipDate: TDateTimeField;
  31.     Table2ItemsTotal: TCurrencyField;
  32.     Table2AmountPaid: TCurrencyField;
  33.     Preview: TBitBtn;
  34.     Exit: TBitBtn;
  35.     DBPrintWin1: TDBPrintWin;
  36.     procedure FormCreate(Sender: TObject);
  37.     procedure PreviewClick(Sender: TObject);
  38.     procedure ExitClick(Sender: TObject);
  39.   private
  40.     { private declarations }
  41.   public
  42. end;
  43.  
  44. var
  45.   Form08: TForm08;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TForm08.FormCreate(Sender: TObject);
  52. begin
  53.   Table1.Open;
  54.   Table2.Open;
  55. end;
  56.  
  57. procedure TForm08.PreviewClick(Sender: TObject);
  58. var
  59.     y: Integer;
  60.    Str: String;
  61. begin
  62.    DBPrintWin1.BeginPrint;
  63.    DBPrintWin1.NewFont ('Arial',20,True,True,True);
  64.    DBPrintWin1.SetTheTextColor (RGB(255,0,0));
  65.    DBPrintWin1.DrawText( 1.5,poCenter,'The Customer');
  66.  
  67.    DBPrintWin1.NewFont ('Arial',14,False,False,False);
  68.    DBPrintWin1.SetTheTextColor (RGB(0,0,0));
  69.  
  70.    Str := Table1.FieldByName('CustNo').AsString;
  71.  
  72.  
  73.    { Tell the table to do only the current record }
  74.    with Table1 do
  75.    begin
  76.       SetRangeStart; { Set the beginning key }
  77.       FieldByName('CustNo').AsString := Str;
  78.       SetRangeEnd; { Set the ending key }
  79.       FieldByName('CustNo').AsString := Str;
  80.       ApplyRange; { Tell the dataset to establish the range }
  81.    end;
  82.  
  83.  
  84.  
  85.    DBPrintWin1.DrawWindow( 2.1,poCenter, DBGrid1);
  86.  
  87.    Table1.CancelRange;
  88.  
  89.    DBPrintWin1.SelectPen (2, RGB(255,0,0));
  90.  
  91.    DBPrintWin1.NewFont ('Arial',20,True,True,True);
  92.    DBPrintWin1.SetTheTextColor (RGB(255,0,0));
  93.    DBPrintWin1.DrawText( 4.0,poCenter,'The Orders');
  94.    DBPrintWin1.SetFrameStyle(frThinThick);
  95.  
  96.    DBPrintWin1.NewFont ('Arial',14,False,True,False);
  97.    DBPrintWin1.SetTheTextColor (RGB(0,0,0));
  98.    DBPrintWin1.DrawWindow( 4.6,poCenter, DBGrid2);
  99.  
  100.    DBPrintWin1.EndPrint;
  101. end;
  102.  
  103.  
  104. procedure TForm08.ExitClick(Sender: TObject);
  105. begin
  106.     Close;
  107. end;
  108.  
  109. end.